(set-language-environment): Set current-iso639-language

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index a8c81442e661e60317639ccefe011c20e252264a..5bcc5996fb4fa8caef0de35339f869b8819277b8 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1843,6 +1843,9 @@ specifies the character set for the major languages of Western Europe."
     (if (functionp func)
        (funcall func)))
 
+  (setq current-iso639-language
+       (get-language-info language-name 'iso639-language))
+
   (run-hooks 'set-language-environment-hook)
   (force-mode-line-update t))